Schnitt ein

x-Schnitt

x

a(x, y) = If[x ≟ 0 ∧ y ≟ 0, 1, ((2 * x) * y^(4) / (x^(2) + y^(2))^(2)) + 1]
A: (0, 2.2, 0)
D: (x(A), y(A), a(x(A), y(A)))
b(x, y) = If[x ≟ 0 ∧ y ≟ 0, 0, Derivative[a(x, y), x, 1]]
C: (x(D) + 1, y(D), a(x(D), y(D)) + b(x(D), y(D)))
u = Vector(D, C)
e = true
k = -0.38 (slider from -4 to 4, step 0.01)
s = 0.7270332494565857 (slider from k to 3.5, step 0.1)
B: (s, 0, a(s, 0))
E: (s + 1, 0, a(s, 0) + b(s, 0))
v = Vector(B, E)
f = CurveCartesian(k, t, a(k, t), t, -4, 4)
c(x, y) = If[x > k, a(x, y)]
d = CurveCartesian(t, 0, a(t, 0), t, k, 4)
F = (-2.7337266888150626, -1.0993647840531586)
G = (-0.7291198228128464, -1.0993647840531586)